OpenEdge Development:<br />Progress 4GL Reference PROMSGS statement

Release 10.1A: OpenEdge Development:
Progress 4GL Reference

PROMSGS statement

Sets the Progress PROMSGS variable for the current OpenEdge session. The PROMSGS variable holds the name of the current Progress message file. Progress supplies different versions of this file to support various languages.

Syntax
PROMSGS = string-expression 
string-expression
A character-string expression that resolves to the name of a Progress message file. You can specify a full or relative pathname for the messages file.
Example

This example prompts the user for a language name and then tries to find a message file for that language. If the message file is found, then the PROMSGS statement is used to make that the current message file. Subsequently, all Progress system messages are read from the new promsgs file. The PROMSGS function is used in an informative message.
r-swmsgs.p
DEFINE VARIABLE newlang AS CHARACTER FORMAT "x(16)"
  LABEL "Language" NO-UNDO.
DEFINE VARIABLE msgfile AS CHARACTER.

SET newlang HELP "Enter the new language for messages.".

IF newlang = "English"
THEN ASSIGN msgfile = "promsgs".
ELSE ASSIGN msgfile = "prolang/promsgs." +
  LC(SUBSTRING(newlang, 1, 3)).

IF SEARCH(msgfile) < > ?
THEN DO:
  PROMSGS = msgfile.
  MESSAGE "Messages will now be taken from" PROMSGS.
END.
ELSE DO:
  MESSAGE "Cannot find" msgfile.
    UNDO, RETRY.
END. 
See also

PROMSGS function